My Neighborhood/My Neighborhood.iso/mac/MacFiles/Shared.Dir/00900.ls

Text File | 1997-11-20 | 935 b | 38 lines

on startMovie
  global questionNumber, snap
  set snap to 0
  set whichCursor to the number of cast "handCursor"
  cursor([whichCursor, whichCursor + 1])
end

on wait ticks
  set temp to the timer
  repeat while (the timer - temp) < ticks
  end repeat
end

on autoHilite
  set whichSprite to the clickOn
  set default to the castNum of sprite whichSprite
  set the castNum of sprite whichSprite to default + 1
  updateStage()
  wait(5)
  repeat while the stillDown
    if rollOver(whichSprite) then
      set the castNum of sprite whichSprite to default + 1
    else
      set the castNum of sprite whichSprite to default
    end if
    updateStage()
  end repeat
  set the castNum of sprite whichSprite to default
  updateStage()
  if rollOver(whichSprite) then
    if the scriptNum of sprite whichSprite <> 0 then
      action(script the scriptNum of sprite whichSprite)
    else
      action(script default)
    end if
  end if
end